screen 20,8
      
dim as double d,i,x,y



''Mit der d-Schleife werden mehrere Lissajou-Figuren übereinandergeschrieben
''und in y-Richtung in der Größe verändert (geteilt durch d*2+1 in Zeile 21):

  FOR d = 4 TO 21 STEP .01
     
     
     
 ''Reine Lissajou-Figur über 360°/2Pi/6.3 mit sin in x- und cos in y-Richtung:
  
  FOR i = 0 TO 6.3 STEP .001
    x = SIN(i) * 460
    
    ''Im Vergleich zu lissa1 Phasenverschiebung durch sin(i+...) in Zeile 21:
    
    y = COS(i * 30 + d) * 1000 / (d * 2 + .1) + SIN(i + 1.6) * 200
    PSET (500 + x,350 + y),3 * d + 1
  NEXT i
  
  
  
NEXT d

 sleep
      END 0